25 REM RESET TOP OF BASIC TEXT
30 POKE56,PEEK(46)+4:CLR
35 REM SET UP SCREEN CHARACTERISTICS
40 POKE53281,12:POKE53280,12:PRINT"[144]":POKE53272,23
50 GOSUB10000:REM PRINT HEADER
60 ML=49152:REM ADDR OF ML PART OF THIS PROGRAM (ONCE MOVED INTO PLACE)
70 SYS(PEEK(45)+PEEK(46)*256-55):REM MOVE ML PART OF THIS PROGRAM INTO PLACE
100 PRINT:PRINT:PRINT"       [201]NSERT DISK INTO DRIVE":PRINT
110 PRINT"        [212]HEN PRESS [211][208][193][195][197][160][194][193][210]"
115 GETA$:IFA$=""THEN115
120 GOSUB900:GOSUB800 :REM INITIALIZE DISK
130 DF=8:PR$="[194][193][211][201][195] PROGRAM.": REM SET DISK FILE NUMBER AND PROMPT
200 PRINT:PRINT"[197]NTER NAME OF ";PR$
210 PRINT"   OR ENTER QUIT[146]"
220 PRINT"   OR ENTER $[146] (FOR DISK DIR.)
230 [133]AN$
240 [139] AN$[178]"QUIT" [167] 700
250 [139] AN$[178]"$" [167] [158] ML:[137]200
260 [139] AN$[178]""[167]200
270 [159]DF,8,DF,"0:"[170]AN$[170]",P,R":[141]800
280 [139]DF[178]9[167] [141]10120:[158]ML[170]3
290 DF[178]9:PR$[178]"(null)(null) PROGRAM FILE."
295 [137]200
700 [160]8:[160]9:[160]15
710 [151]55,0:[151]56,160:[128]
800 [132]15,E,E$:[139] E[179][177]0[167][153]"STR$ISK VAL(null)(null)(null)(null):";E;",";E$:[137]700
810 [142]
900 [159]15,8,15,"I0":[142]
1000 [141]900:[152]15,"S0:MLAPPENDER":[160]15:[148]"MLAPPENDER",8:[128]
10000 [153]"LOAD      ** (null)(null) (null)(null)(null)CHR$(null)ATN(null) ATN(null)(null)VAL(null)STR$VAL(null) **
10010 PRINT"                  BY
10020 [153]"          (null)IKE (null)OZAKIEWICZ
10050 PRINT:PRINT:PRINT"[193]PPEND AN [205][204] PROGRAM TO THE END OF A
10060 [153]"PEEKATN(null)RIGHT$LEN PROGRAM SO THAT BOTH CAN BE SAVED":[153]"AS ONE UNIT.
10070 RETURN
10120 PRINT:PRINT:PRINT"[210][197][205][197][205][194][197][210]:":PRINT
10140 PRINT"[207]NCE THE [210][197][193][196][217] PROMPT APPEARS, YOU MUST
10150 [153]"ADD THE FOLLOWING LINE TO YOUR PEEKATN(null)RIGHT$LEN
10160 PRINT"PROGRAM BEFORE RUNNING IT. [212]HE [211][217][211]
10170 [153]"CAUSES YOUR (null)(null) PROGRAM TO BE MOVED TO
10180 PRINT"THE SPOT FROM WHICH IT WAS ORIGINALLY":PRINT"SAVED.":PRINT
10210 PRINT"SYS (PEEK(45)+PEEK(46)*256-63)
10220 [142]